MAPS

Submarine Cable Map

Route Map

Photo from Wikipedia Commons

Photo from Wikipedia Commons

No cord or cable can draw so forcibly, or bind so fast, as love can do with a single thread…
— Robert Burton


Route map of the world’s major operating and planned submarine cable systems and landing stations.

Ingest

the routes

cables <- read.csv("archetypes/fusion-cables/fusion-cables.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
cables

The landing points

landing_points = read.csv("archetypes/fusion-cables/fusion-landing-points.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
landing_points

Base map

natural earth

# PLOT NATURAL EARTH BORDERS
ne_world <- ne_countries(scale = "small", returnclass = "sf")
# class(ne_world)

Route map

with geom_path

theme_opts <- theme(
      legend.position="none",
      plot.background = element_blank(),
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      panel.background=element_rect(fill="white", colour="white"),
      panel.border = element_blank()
)

v1 <- ggplot(data = ne_world) +
  geom_path( data = cables, aes(x=longitude, y=latitude, group=factor(id)), color=cables$color, size=0.5) +
  geom_sf(fill="#f0f0f0", color="#888888", stroke=0.5) +
  geom_point( data = landing_points, aes(x=lon, y=lat ), shape=21, size=1, fill="#ffffff", color="#111111", stroke=0.5 ) +
  scale_color_tron() +
  scale_fill_tron() +
  ylim(-53,80) + # removes Antarctica
  theme_bw() +
  labs(x="",
       y="",
       title = "Routes Map", 
       subtitle="Submarine Cable Map") +
  theme_opts
  
girafe(ggobj = v1, width_svg = 1280/72, height_svg = 720/72,
       options = list(opts_sizing(rescale = TRUE, width = 1.0))
)

References

citations for narrative and data sources